Top 10k strings from 16-48 Magazine - Issue 01 (1983)(16-48 Tape Magazine).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TAP] (TOSEC-v2007-01-01) /
Back to the directory listing
19 ((((((((((((((( 16 ((((((((((((( 8 ((((((((((((((((((((( 7 ]MAGNETIC MAGAZINES 83:H\ 7 ;" ": 6 z$="09020203STOP THE TAPE": 6 MAGNETIC MAGAZINES : 6 ;"PRESS ANY KEY" 5 p$(x,y)=" " 5 ;"________________________________": 4 z$="10020203RUN THE TAPE": 4 @@@@@@@@@@@@@ 4 @@@@@@@@@@ 4 ;"RUN THE TAPE": 4 ;" Press R to read again."; 4 ;" 16/48 NOVEMBER 1983 TAPE 1 " 4 (00000((((((( 4 (((((((00000( 4 (((((((((((( 4 "16/48REV1" 3 z$="07050203CONCLUSIONS": 3 z$="00010505REVIEW": 3 x=xx+(b$(1 3 ;" Press L to load the picture." 3 ;" ": 3 0((((((((((((((( 3 )="w")-(b$(1 3 (((((((((((((((00000( 2 z$=p$(x,y,2 2 z$="ll120102and": 2 z$="14050103the RD DIGITAL TRACER.": 2 z$="08050103the DK'Tronics LIGHT PEN": 2 chessfire 2 a$(n)=a$(n,2 2 ]B.C.THORNE APRIL 1983:H\ 2 @@PP@@@@@@ 2 @@@P@@@@@@@ 2 @@@@@@@PPP@@@@@@ 2 @@@@@@@P@@@@@@@ 2 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 2 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 2 @@@@@@@@@@@@@@@@@@@@@@@@@@@@ 2 @@@@@@@@@@@@@@@@@@@@@@@@@@@ 2 @@@@@@@@@@@@@@@@@@@@@@@ 2 @@@@@@@@@@@@@@@@@@ 2 @@@@@@@@@@@@@@@@@ 2 @@@@@@@@@@@@@@ 2 @@@@@@@@@@@@ 2 @@@@@@@@@@@ 2 ;"The pen is quick and simple to use. All the routines worked reasonably well with the exception of the free-hand drawing option which is plagued by the black band and the white cursor obscuring the view."; 2 ;"The pen finds its Y coordinate by timing the raster scan."; 2 ;"The DK'tronics light pen allows you to choose from a number of drawing routines and position the figures anywhere on the screen."; 2 ;"STOP THE TAPE": 2 ;"LET THE TAPE RUN": 2 ;"Jim Dann has been testing" 2 ;"If your TV is compatible, and you are not expecting to be able to draw rapid free-hand sketches, then the light pen is an exciting addition to your system and well worth the price at `19.95."; 2 ;"He gives his opinion and two examples of the sort of graphics they can help you to produce." 2 ;"(From DK'Tronics,Unit 2,Shire Hill Industrial Estate, Saffron Walden, Essex CB11 3AQ.)": 2 ;" The unit is connected to the spectrum EAR socket and runs from the spectrum's power supply."; 2 ;" The program leads you through a series of instructions paged by the pen. The 48K version gives a good demonstration of the pen's ability to pick options from a screen menu.": 2 ;" The pen is also particular about televisions. It needs a bright picture with good contrast.": 2 ;" The pen is a simple plastic barrel with a phototransistor at one end. This plugs into the control unit."; 2 ;" The light pen package consists of the pen, a control unit and software."; 2 ;" STOP THE TAPE " 2 ;" It is also used in calibrating the pen.": 2 ;" If the X coordinate is required several lines around this level are then blacked out and a white cursor is sent across the screen until it triggers the pen." : 2 ;" " 2 ;" "; 2 16/48REV1 2 16/48Noise 2 ,c;" "; 2 ,b-f;" ": 2 );"m";" "; 2 (00000((((((((((((((((((((( 2 (00000((((((((((((((( 2 (00000((((((((( 2 ((((((((((00000((((((( 2 (((((((((((((((((((((00000( 2 (((((((((((((((((((((((((((((((((((((((((0 2 (((((((((((((((((((((((((((((((((((((((((((((((((( 2 ((((((((((((((((((((((((((((((((((((((((((((((( 2 (((((((((((((((((((((((((((((((((((((((((( 2 "16/48next" 2 "16/48TYPE" 2 "16/48TITLE" 2 "16/48REV2" 2 "16/48LOAD2" 2 "16/48LOAD1" 2 "16/48EDIT" 2 "16/48D&G" 2 B.C.THORNE MARCH 1983 2 1983 MAGNETIC MAGAZINES LTD.! 1 z$="llccnnnnBYE": 1 z$="ll130201AND ": 1 z$="ll020302GREEN MEN": 1 z$="ll000402DUNGEONS": 1 z$="15010303RUN SIDE 2": 1 z$="1400060616/48": 1 z$="12130202to": 1 z$="10070203TURN OVER": 1 z$="08050103the RD DIGITAL TRACER.": 1 z$="07040202HOBBIT HINTS": 1 z$="07020404WELCOME": 1 z$="06080503YES": 1 z$="05050203FAST FORWARD": 1 z$="02000202CHARACTER SET...": 1 z$="00cc0305EDITORIAL": 1 z$="00140201OF": 1 z$="00020203RUN THE TAPE": 1 z$="00010305NEXT MONTH": 1 z$="0000060516 48": 1 x1,y1;" " 1 tw=tw+(t$="2")*time 1 tb=tb+(t$="1")*time 1 stroke4 1 store frame 1 pieces 1 p$="1122334455667722744": 1 p$(xx,yy)=" " 1 p$(xx,y)=" " 1 p$(x,y)=c$+"N1" 1 p$(x,y)=b$: 1 p$(x,y)=b$ 1 p$(n,m)=" " 1 noisefx 1 e=e+(y>e)-(y<e) 1 d=d+(x>d)-(x<d) 1 copter 1 c$="WHITE": 1 c$="BLACK" 1 bits k 1 birds 1 b$=p$(x,y) 1 at=at+(f/3 1 angles 1 amax=amax-(amax>1 1 addresses for RANDOMIZE USR noises; 23770, 23773, 23776 23779, 23782, 23785, 23788, 23791, 23794, 23797, Please note this routine will not work if a microdrive is used 1 a$=" Press any key to continue " 1 a$=" 1 Z$="10030203RUN THE TAPE": 1 Z$="00000202If you like this": 1 T THE MISTY MOUNTAINS,"; 1 STOP THE TAPE 1 SOUNDFX 1 Roger Swift 1983 1 RDGB 1 PIC4 1 MERGE the next program with one of your own." 1 If you enjoyed 16/48. Why not take out a subscription at our special rates?(See inlay card) " 1 INSTRUCTIONS 1 Do you want instructions ? (y/n) 1 DKamera 1 COMPRESSION 1 =restart, 1 =next section" 1 ;c$;" WINS"; 1 ;"x is the frame to be displayed. c is the column number for the left hand edge of the frame. b is the block number(0 for top, 1 for middle and 2 for bottom of the screen).": 1 ;"then now is the time to"; 1 ;"stroke4"; 1 ;"leave tape running" 1 ;"You scored "; 1 ;"You score ";s;" out of 8."; 1 ;"You can then break out of this program and load your SCREEN$. Then LET x=1:GOSUB 9000 will store the top left corner of your picture (16x8 characters) as frame 1.": 1 ;"Without the length limitations of printed listings we can provide polished, bug free software."; 1 ;"When you have created your masterpiece send it to us on cassette(see line 9990) and you could win a digital tracer or a light pen." 1 ;"When it stops ENTER the cylinder number which is on ";s$(q): 1 ;"We will pay `50 for good, original programs which are published."; 1 ;"We will feature a letters and problems page in future issues."; 1 ;"We aim to provide high quality programs and really useful programming aids as our first priority."; 1 ;"WHITE TO MOVE" 1 ;"WEAR GLOVES.": 1 ;"Try the next question." 1 ;"Try again.": 1 ;"To use it, CLEAR ";31720 1 ;"This program contains a machine code routine(called ""PIC4"") which will store 4 frames in RAMjust below the user defined graphics.": 1 ;"This month we feature help for those of you stuck in ARTIC's ADVENTURE ""A""."; 1 ;"This is the modern equivalent ofthe pantograph. A device which follows the movement of a stylus(or in this case a cross hair type sight) and transposes the movement onto the screen."; 1 ;"Then GOSUB 9100 will display theframe at the desired position. If you run out of memory you canerase almost all of this programexcept lines 2 and 9000 to 9150.": 1 ;"The tracer will work with 16K and 48K machines (where it uses input/output port 31) and to a lesser extent on the ZX81,where it is memory mapped."; 1 ;"The tracer comprises a three section arm with potentiometers at the two pivots. These are connected to an analogue to digital convertor which is housed in a thinly disguised cassette case which plugs onto the spectrum PCB."''"The software is loaded from an uncased (!) cassette.": 1 ;"The command for this sound is;" 1 ;"The Next issue of 16/48 will be available from 24th November from branches of W.H.Smith John Menzies and leading newsagents."''" But for now...": 1 ;"That's all for now. We hope you enjoy the rest of the tape.": 1 ;"THE SPACE SHIP."; 1 ;"THE PRISON CELL"; 1 ;"THE LIFT."; 1 ;"THE LIFT CONTROL ROOM."; 1 ;"THE GREEN MAN"; 1 ;"THE FORCE FIELD."; 1 ;"Stuck in a dungeon?"; 1 ;"Sorry, you are wrong.": 1 ;"Some people seem to be having trouble finding Gollum. Well, you should find him eventually in the Goblins' tunnels. Do keep your encounter as brief as possible and remember the ring."; 1 ;"So what does it look like?..." 1 ;"Send programs on cassette (SAVEd twice and preferably able to run after CLEAR 31720) to the address on the inlay card."; 1 ;"See you next month. Press E to EXIT.Any other key will run thislast program again." 1 ;"SIDE 2 LOADING" 1 ;"SIDE 1 LOADING" 1 ;"SCORE "; 1 ;"SAVE ""16/48TYPE"" 1 ;"Rewind and play for automatic verification.": 1 ;"Repeat with x=2,3 and 4 and you will be ready to animate. To display your frames you must assign values to x,c and b.": 1 ;"RUN THE TAPE"; 1 ;"RANDOMIZE USR ";23770 1 ;"Press any key when you have seenenough and wish to move on.": 1 ;"Press any key to move on." 1 ;"Press any key other than ""A"" to read this again.": 1 ;"Press R to read again."; 1 ;"Press L to load CHESSFIRE." 1 ;"Press E to exit."; 1 ;"Please wait" 1 ;"PUSH AUX, in lift PUSH 4.": 1 ;"PUSH 3, PUSH 2, PUSH 1."; 1 ;"PRESS M TO MOVE ON" 1 ;"PRESS ANY KEY (A to abort)" 1 ;"PRESS A FOR ANOTHER GAME 1 ;"POKE 23606,0: 1 ;"PLANET OF DEATH."; 1 ;"Once the software is loaded you can trace, paint, shade, plot, draw lines and circles, erase, insert text and save pictures to tape."; 1 ;"Now watch for a while.": 1 ;"Now for the other device;-" 1 ;"Never mind. Let's see the score." 1 ;"NOVEMBER 1983 TAPE 1 SIDE 1" 1 ;"Machine readability is all."; 1 ;"MACHINE CODE SOUND EFFECTS"'"HOW TO USE THEM" 1 ;"Leave tape running" 1 ;"LEAVE TAPE RUNNING" 1 ;"In this month's magazine......" 1 ;"If you have discovered any solutions, interesting short cuts or bugs in any adventure game then drop us a line at 16/48."''" We will send you `5 if we publish your contribution."''" Send us your problems and we will do our best to save you from death and destruction." 1 ;"IN THE WIND TUNNEL"; 1 ;"IN THE MAZE."; 1 ;"IN THE ICE CAVERN"; 1 ;"I could never have drawn the mapcoming up soon without it.": 1 ;"I E E I I E E I" 1 ;"Home computing has come of age."; 1 ;"GO N, S, E, W.": 1 ;"GO N, NE, W, SE, DOWN, DOWN, DOWN "; 1 ;"GET STARTER MOTOR.": 1 ;"GET MAN, DROP MAN, KILL MAN, GET MIRROR.": 1 ;"GET ICE, GO DOWN.": 1 ;"Further programs allow you to scale your tracings, read coordinates from the screen, create user defined graphics and designs which can be saved as data.": 1 ;"FIRE LASER, FIRE LASER, DANCE."''" Or try"''" REFLECT FORCE FIELD WITH MIRROR, DANCE.": 1 ;"Enough of the technical details,does it really work?......": 1 ;"Do you want to save the character set now? Press Y or N. " 1 ;"Do you want to run this program again (y/n) ?" 1 ;"Do remember that we cannot use programs or routines copied from any publication other than 16/48.": 1 ;"Cylinder ";a$;" is correct.": 1 ;"Coming up next month......" 1 ;"Closing date is 31st November 1983. Winning entries will be published in the February 1984 issue.": 1 ;"Can you contribute???????": 1 ;"CROSS THE RAVINE USING THE FLOOR BOARD.": 1 ;"CHESSFIRE" 1 ;"CHESSFIRE only just fits into 16K of memory with a single page of instructions.";'';" To move a piece you should first select that piece by moving the flashing cursor to that square and pressing 1 ;"CHESSFIRE INSTRUCTIONS" 1 ;"BREAK BARS, DIG HOLE, GO UP.": 1 ;"BLACK TO MOVE" 1 ;"Apart from a slight tendency to drift (apparently a result of the rounding up and down needed to get 8 bit numbers from analogue voltages) the tracer performs all its functions well and is great fun to use."; 1 ;"Any suggestions or comments about 16/48 will be received with interest."; 1 ;"Any other key for another go." 1 ;"Almost finished. Press any key for for our final item.": 1 ;"All you have to do to win this month's competition is create 4 pictures and produce the most exciting animation ever seen in a computer magazine.": 1 ;"All in all an incredible piece of technology for the price(evenif `55.50 does seem like a lot of money) and highly recomended."; 1 ;"16/48 offers you far more than just games. Read on.......": 1 ;"16/48 COMPETITION"; 1 ;"16/48 COMPETITION" 1 ;"100"'"Lead a drone into a balloon"' 1 ;"1"'"Shoot down a drone"; 1 ;"(RD Laboratories, Unit 20, CourtRoad Industrial Estate, Cwmbran Gwent NP44 3AS)": 1 ;"(An awful clue!)": 1 ;"""stroke4""" 1 ;" This month's HIDDEN HOBBIT HINT is to do with the Misty Mountains. Do you want the solution? Press Y or N." 1 ;" Then read on."; 1 ;" Take care to stop the tape as soon as you see a listing. ": 1 ;" Press L to load STROKE 4." 1 ;" MACHINE CODE SOUND EFFECTS " 1 ;" LOW SCORE 1 ;" IN THE MISTY VALLEY,"; 1 ;" HI SCORE "; 1 ;" GO E, GET GOLDEN KEY(What does it open?), UP, UP, SE, S, E.": 1 ;" Four cylinder in line engine " 1 ;" For some unfathomable reason you can't PICK UP that treasure lying at your feet?"; 1 ;" FOUR STROKE CYCLE " 1 ;" Every month we help you solve several frustrating adventure game problems. Just pick from the menu the place where you start to doubt your sanity and the answer will be revealed.": 1 ;" Don't press the key unless you really want to know."; 1 ;" 16/48 NOVEMBER 1983 Tape 1 " 1 ;" 16/48 NOVEMBER 1983 TAPE 1 " 1 ;" Press any key to load COPTER." 1 ;" STOP THE TAPE ": 1 ;" PLANET OF DEATH.": 1 ;" How do you do it?": 1 ;" " 1 ;" ": 1 ;" " 1 8((((((((( 1 24179,768 "; 1 16/48next 1 16/48TITLE 1 16/48REV2 y 1 16/48LOAD2 1 16/48LOAD1 1 16/48EDIT 1 16/48D&G E 1 16/48COMP 1 16/48 October 83. 1 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000008888888888888888888888888888888888888888888888888888888888888888I 1 0((((((((( 1 . If the move is illegal the computer will not respond.";';" CHESSFIRE loads in 3 sections so please wait until prompted before stopping the tape." 1 . Then move the cursor to the new position and press 1 ,y)="w"+z$ 1 ,y)="b"+z$ 1 ,m)="bP"+p$(2 1 +(t$="2")) 1 *(c$="w"): 1 *(c$="w")-2 1 *((a$="h")-(a$="u")) 1 *((a$="4")-(a$="3")) 1 )="VAMPIRE........Can you get him before nightfall? Can you keep him out till sunrise?????................" 1 )="TABLES........&...AMPLIFY. Educational programs for the young and the not so young.............." 1 )="STROKE4......an educational program. A high speed animation of a 4 cylinder engine..........." 1 )="SOUNDFX......a machine code noise library to put more !!! into your programs.............." 1 )="REVIEWS.......comparing graphics with the RD.digital tracer and DK'tronic's light pen............." 1 )="REVIEWS........We give you the graphical low down on some 3D Spectrum products................" 1 )="POWER": 1 )="PLUS.........Your Programs....More machine code....more value.....more useful....more fun........." 1 )="PLUS..........WE OFFER BETTER RATES FOR BETTER PROGRAMS..monthly competitions.and more........." 1 )="INLET": 1 )="EXHAUST" 1 )="COPTER.......shoot the drones but mind the barrage balloons! A game by Barry Thorne..........." 1 )="COMPRESSION": 1 )="CHESSFIRE....a chessboard simulation with all legal moves, clocks and a FIRE option............." 1 )="BIGPRINT.......a fast machine code routine to give you any size of printing you want............" 1 )="BALLISTA.......an ancient artillery contest for two players. Boadicea could have used it.................." 1 );" AMMO ";am;" ": 1 )*(r$="8")-(x>1 1 )*(r$="7") 1 )*(r$="6")-(y>1 1 )*(r$="5") 1 ((t$="1")*2 1 (((((((00000((((((((((((((( 1 (((((((00000((((((((( 1 ((((((((((00000( 1 ((((((((((((((((((((((((((((((((8888888888888888888888888888888888888888888888888888888888888888F 1 ((((((((((((((((((((((((((((((((((((8 1 (((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((0 1 (((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((0 1 (((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((( 1 ((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((( 1 (((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((( 1 (((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((( 1 ((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((( 1 ((((((((((((((((((((((((((((((((((((((((((( 1 (((((((((( 1 'RANDOMIZE USR (address)' 1 "stroke4": 1 "p","169","74","92","220","19","140","42","201" 1 "o","3","23","14","28","60","126","165","255" 1 "n","24","24","60","24","60","126","165","255" 1 "m","96","116","56","24","60","126","165","255" 1 "l","16","16","40","56","40","0","0","0" 1 "k","192","0","224","232","24","5","2","4" 1 "j","63","92","191","123","119","61","145","122" 1 "i","32","16","168","68","40","146","201","233" 1 "h","0","136","84","113","82","114","84","255" 1 "g","0","113","139","134","142","115","1","0" 1 "f","0","255","195","165","255","153","165","255" 1 "e","254","16","127","174","184","112","32","88" 1 "d","252","64","254","249","255","127","62","0" 1 "chessfire": 1 "chessfire" 1 "c","23","32","255","79","128","0","0","0" 1 "b)Leading them into barrage balloons"; 1 "b","232","4","255","242","1","0","0","0" 1 "and 2 hangars." 1 "an airfield covered in debris,"' 1 "a","63","2","63","95","255","254","124","0" 1 "a pair of guns,"; 1 "Your helicopter is being attacked by guided drones"' 1 "You have;"'"A helicopter,"; 1 "You have 3 lives, for what they are worth !" 1 "You cannot control the gun and helicopter at the same time" 1 "You can destroy the drones by a) Shooting them down with the guns 1 "Use keys 5 to 8 to move cursor." 1 "Use F instead of M to fire without moving. Most pieces needto be hit more than once.(Pawns need 1-2 hits,Queens 1-4,Kings 1 and the rest 1-3. Lives are random but fairly distributed.)" 1 "Type Number or H(for help) or E(to exit). Then ENTER. "; 1 "To store a frame in RAM you needto save your picture as a SCREEN$. Then load this program.": 1 "To move a pawn ""en passant"" you should press E instead of M." 1 "To castle move the rook with C instead of M." 1 "To animate high resolution graphics on a 16K SPECTRUM we have had to restrict the size of each frame and the number of frames stored.": 1 "Survive 1 second "; 1 "So get down to graphics NOW!" 1 "Script saved and verified." 1 "Return to this script with"; 1 "R2","K2","B2","Q3","N1","B2","K2","R2" 1 "R","K","B","Q","N","B","K","R" 1 "Press any key from 1 to 0"'"When you get bored press ENTER." 1 "PRESS ANY KEY TO START THE CLOCK" 1 "POKE 23606,233:POKE 23607,";122 1 "P selects piece to move." 1 "M moves the piece. Only legal chess moves are allowed." 1 "LOAD ""16/48TYPE"" 1 "If the left hand hangar gets toodamaged or you run out of ammunition you must fly to the right hangar for supplies" 1 "INSTRUCTIONS" 1 "Helicopter controls" 1 "Gun controls" 1 "ENTER NEW PIECE (Q,B,R or K)."; 1 "5) The next section will show you how this works." 1 "4) To use a noise you only need type 1 "3) Line 1 of the next program isalso a REM statement.It containsthe list of addresses that you will need to run the noises." 1 "2) The machine code is in a REM statement in line 0.If you type LIST the computer will give you an error report.To list the program type 1 "16/48COMP": 1 "16/48COMP" 1 "10 salvos of ammunition,"' 1 "1) LOAD the next program(called 'SOUNDFX'), 1 "'u'= go up; 'h'= go down" 1 "'u'= fire"'"'n'= change to control helicopter" 1 "'n'= change to control the guns" 1 "'3'= go left; '4'= go right" 1 "'3'= aim left; '4'= aim right" 1 "'"with your helicopter." 1 to continue"; 1 picks piece 1 for the last part"; 1 for the game"; 1 RAVINE 1 LIFT CONTROL ROOM"; 1 ICE CAVERN 1 GREEN MAN 1 GAME OVER 1 FORCE FIELD 1 CONTROLS " 1 B.C.THORNE APRIL 1983 1 WIND TUNNEL"; 1 SPACE SHIP 1 PRISON CELL"; 1 Erase this line and save this program on tape so that you can then merge it with any of your own. Type LOAD"" ENTER and run the tape to see the competition andget some idea of what next month's 16/48 will be offering.